home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 November / Chip Kasım 2003.iso / prog / openoff / f_0155 / Language.xba < prev    next >
Encoding:
Extensible Markup Language  |  2003-01-30  |  10.7 KB  |  282 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
  3. <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
  4.  
  5.  
  6. Global Const RID_COMMON    = 1000
  7. Global Const RID_FORM    = 2200
  8.  
  9. Public Const SBCANCEL = 2
  10. Public Const SBREPEAT = 4
  11. Public LabelDiffHeight as Long
  12. Public BasicLabelDiffHeight as Long
  13.  
  14. Public WizardTitle(1 To 3) as String
  15. Public DlgFormDB as Object
  16. Public DialogModel as Object
  17.  
  18. Dim sMsgWizardName as String
  19. Dim sMsgErrMsg as String
  20. Dim sMsgErrFormOpen as String
  21. Dim sMsgErrNoDatabase as String
  22. Dim sMsgErrNoTableInDatabase as String
  23. Dim sMsgErrTitleSuggestedExist as String
  24. Dim sMsgErrTitleSyntaxError as String
  25. Dim sMsgErrTitleAsTableExist as String
  26. Dim sMsgProgressText as String
  27. Dim sMsgCreatedForm as String
  28. Dim sMsgErrCouldNotOpenObject as String
  29. Dim sMsgErrNameToLong as String
  30. Dim sTimeAppendix as String
  31. Dim sDateAppendix as String
  32. Public sGoOn as String
  33. Public sReady as String
  34. Public sMsgNoConnection as String
  35. Public sWriterFilterName as String        
  36. Public XPixelFactor as Long        
  37. Public YPixelFactor as Long
  38. Public sSelectDatasource as String
  39. Public sSelectDBTable as String
  40.  
  41.  
  42.  
  43. Sub LoadLanguage ()
  44.     sMsgWizardName = GetResText(RID_FORM + 0)
  45.     sMsgErrMsg = GetResText(RID_COMMON + 6)
  46.     sMsgErrFormOpen = GetResText(RID_COMMON + 7)
  47.     sMsgErrNoDatabase = GetResText(RID_COMMON + 8)
  48.     sMsgErrNoTableInDatabase = GetResText(RID_COMMON + 9)
  49.     sMsgErrTitleSuggestedExist = GetResText(RID_COMMON + 10)
  50.     sMsgErrTitleAsTableExist = GetResText(RID_COMMON + 10)
  51.     sMsgErrTitleSyntaxError = GetResText(RID_COMMON + 11)
  52.     sMsgNoConnection = GetResText(RID_COMMON + 14
  53.     sMsgProgressText = GetResText(RID_FORM + 2)
  54.     sMsgCreatedForm = GetResText(RID_FORM + 26)
  55.     sMsgErrNameToLong = GetResText (RID_FORM + 27)
  56.     sMsgErrCouldNotOpenObject = GetResText (RID_COMMON + 13)
  57.  
  58.     '    Internal Logic
  59.     sDateAppendix = GetResText(RID_FORM + 4)
  60.     sTimeAppendix = GetResText(RID_FORM + 5)
  61.     
  62.     sReady = GetResText(RID_COMMON + 0)
  63. End Sub
  64.  
  65.  
  66. Sub SetDialogLanguage ()
  67. Dim i as Integer
  68. Dim ButtonHelpText as String
  69. Dim CmdButton as Object
  70. Dim IDArray as Variant
  71. Dim FNameAddOn as String
  72. Dim slblSelFields as String
  73. Dim slblFields as String
  74.  
  75.     DlgFormDB = LoadDialog("FormWizard", "DlgFormDB")
  76.     DialogModel = DlgFormDB.Model
  77.     
  78.     With DialogModel
  79.         .cmdCancel.Label = GetResText(RID_COMMON + 1)
  80.         .cmdBack.Label = GetResText(RID_COMMON + 2)
  81.         .cmdHelp.Label = GetResText(RID_COMMON + 20)
  82.         sGoOn = GetResText(RID_COMMON + 3)
  83.         .cmdGoOn.Label = sGoOn
  84.         .lblDatabases.Label = GetResText(RID_FORM + 11)
  85.         .lblTables.Label = GetResText(RID_FORM + 6)
  86.  
  87.         slblFields = GetResText(RID_FORM + 12)
  88.         slblSelFields = GetResText(RID_FORM + 13)
  89.         .lblFields.Label = slblFields
  90.         .lblSelFields.Label = slblSelFields
  91.  
  92.         .lblStyles.Label = GetResText(RID_FORM + 21)
  93.         .hlnBorderLayout.Label = GetResText(RID_FORM + 28)
  94.         .hlnAlign.Label = GetResText(RID_FORM + 32)
  95.         .hlnArrangements.Label = GetResText(RID_FORM + 35)
  96.  
  97.         WizardTitle(1) = sMsgWizardName & " - " & GetResText(RID_FORM + 45)
  98.         WizardTitle(2) = sMsgWizardName & " - " & GetResText(RID_FORM + 46)
  99.         WizardTitle(3) = sMsgWizardName & " - " & GetResText(RID_FORM + 47)
  100.  
  101.         .hlnBinaries.Label = GetResText(RID_FORM + 50)
  102.         .optIgnoreBinaries.Label = GetResText(RID_FORM + 51)
  103.         .optBinariesasGraphics.Label = GetResText(RID_FORM + 52)
  104.     
  105.         .hlnBackground.Label = GetResText(RID_FORM + 55)
  106.         .optTiled.Label = GetResText(RID_FORM + 56)
  107.         .optArea.Label = GetResText(RID_FORM + 57)
  108.  
  109.         .optBorder0.Label = GetResText(RID_FORM + 29)
  110.         .optBorder1.Label = GetResText(RID_FORM + 30)
  111.         .optBorder2.Label = GetResText(RID_FORM + 31)
  112.         .optBorder1.State = 1
  113.         
  114.         .optAlign0.Label = GetResText(RID_FORM + 33)
  115.         .optAlign2.Label = GetResText(RID_FORM + 34)
  116.         .optAlign0.State = 1
  117.         
  118.         FNameAddOn = ""
  119.         If isHighContrast(DlgFormDB.getPeer) Then FNameAddOn = "_hc"
  120.  
  121.         IDArray = Array(36, 37, 40, 38, 39)
  122.         For i = 1 To 5
  123.             ButtonHelpText = GetResText(RID_FORM + IDArray(i-1)
  124.             cmdButton = DlgFormDB.getControl("cmdArrange" & i)
  125.             cmdButton.Model.ImageURL = FormPath & "Arrange_" & i & FNameAddOn & ".gif"
  126.             cmdButton.Model.HelpText = ButtonHelpText
  127.             cmdButton.getPeer().setProperty("AccessibleName", ButtonHelpText)
  128.         Next i        
  129. '        .cmdArrange1.ImageURL = FormPath & "Arrange_1" & FNameAddOn & ".gif"
  130. '        .cmdArrange1.HelpText = GetResText(RID_FORM + 36)
  131. '
  132. '        .cmdArrange2.ImageURL = FormPath & "Arrange_2" & FNameAddOn & ".gif"
  133. '        .cmdArrange2.HelpText = GetResText(RID_FORM + 37)
  134. '
  135. '        .cmdArrange3.ImageURL = FormPath & "Arrange_3" & FNameAddOn & ".gif"
  136. '        .cmdArrange3.HelpText = GetResText(RID_FORM + 40)
  137. '
  138. '        .cmdArrange4.ImageURL = FormPath & "Arrange_4" & FNameAddOn & ".gif"
  139. '        .cmdArrange4.HelpText = GetResText(RID_FORM + 38)
  140. '
  141. '        .cmdArrange5.ImageURL = FormPath & "Arrange_5" & FNameAddOn & ".gif"
  142. '        .cmdArrange5.HelpText = GetResText(RID_FORM + 39)
  143.         sWriterFilterName = GetResText(RID_FORM + 70)
  144.     End With
  145.     DlgFormDB.GetControl("cmdMoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 39)
  146.     DlgFormDB.GetControl("cmdRemoveSelected").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 40)
  147.     DlgFormDB.GetControl("cmdMoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 41)
  148.     DlgFormDB.GetControl("cmdRemoveAll").getPeer().setProperty("AccessibleName", GetResText(RID_COMMON + 42)
  149.     DlgFormDB.getControl("lstFields").getPeer().setProperty("AccessibleName", DeleteStr(slblFields, "~"))
  150.     DlgFormDB.getControl("lstSelFields").getPeer().setProperty("AccessibleName", DeleteStr(slblSelFields, "~"))
  151.     
  152.     sSelectDatasource = GetResText(RID_COMMON + 37)
  153.     sSelectDBTable = GetResText(RID_COMMON + 38)    
  154. End Sub
  155.  
  156.  
  157.  
  158. Sub InitializeWidthList()
  159.  
  160.     If Ubound(WidthList(),1) > 15 Then
  161.         ReDim WidthList(15,4)
  162.     End If
  163.  
  164.     WidthList(0,0) = com.sun.star.sdbc.DataType.BIT               ' = -7;
  165.     WidthList(0,1) = cCheckbox
  166.     WidthList(0,2) = False
  167.     WidthList(0,3) = "CheckBox"
  168.  
  169.     WidthList(1,0) = com.sun.star.sdbc.DataType.TINYINT            ' =  -6;
  170.     WidthList(1,1) = cNumericBox
  171.     WidthList(1,2) = False
  172.     WidthList(1,3) = "FormattedField"
  173.     
  174.     WidthList(2,0) = com.sun.star.sdbc.DataType.SMALLINT        ' =   5;
  175.     WidthList(2,1) = cNumericBox
  176.     WidthList(2,2) = False
  177.     WidthList(2,3) = "FormattedField"
  178.     
  179.     WidthList(3,0) = com.sun.star.sdbc.DataType.INTEGER            ' =   4;
  180.     WidthList(3,1) = cNumericBox
  181.     WidthList(3,2) = False
  182.     WidthList(3,3) = "FormattedField"
  183.     
  184.     WidthList(4,0) = com.sun.star.sdbc.DataType.BIGINT            ' =  -5;
  185.     WidthList(4,1) = cNumericBox
  186.     WidthList(4,2) = False
  187.     WidthList(4,3) = "FormattedField"
  188.     
  189.     WidthList(5,0) = com.sun.star.sdbc.DataType.FLOAT            ' =   6;
  190.     WidthList(5,1) = cNumericBox
  191.     WidthList(5,2) = False
  192.     WidthList(5,3) = "FormattedField"
  193.     
  194.     WidthList(6,0) = com.sun.star.sdbc.DataType.REAL            ' =   7;
  195.     WidthList(6,1) = cNumericBox
  196.     WidthList(6,2) = False
  197.     WidthList(6,3) = "FormattedField"
  198.     
  199.     WidthList(7,0) = com.sun.star.sdbc.DataType.DOUBLE            ' =   8;
  200.     WidthList(7,1) = cNumericBox
  201.     WidthList(7,2) = False
  202.     WidthList(7,3) = "FormattedField"
  203.     
  204.     WidthList(8,0) = com.sun.star.sdbc.DataType.NUMERIC            ' =   2;
  205.     WidthList(8,1) = cNumericBox
  206.     WidthList(8,2) = False
  207.     WidthList(8,3) = "FormattedField"
  208.     
  209.     WidthList(9,0) = com.sun.star.sdbc.DataType.DECIMAL            ' =   3;  (including decimal places)
  210.     WidthList(9,1) = cNumericBox
  211.     WidthList(9,2) = False
  212.     WidthList(9,3) = "FormattedField"
  213.     
  214.     WidthList(10,0) = com.sun.star.sdbc.DataType.CHAR            ' =   1;
  215.     WidthList(10,1) = cTextBox
  216.     WidthList(10,2) = False
  217.     WidthList(10,3) = "TextField"
  218.  
  219.     WidthList(11,0) = com.sun.star.sdbc.DataType.VARCHAR        ' =  12;
  220.     WidthList(11,1) = cTextBox
  221.     WidthList(11,2) = True
  222.     WidthList(11,3) = "TextField"
  223.     
  224.     WidthList(12,0) = com.sun.star.sdbc.DataType.LONGVARCHAR    ' =  -1;
  225.     WidthList(12,1) = cTextBox
  226.     WidthList(12,2) = True
  227.     WidthList(12,3) = "TextField"
  228.  
  229.     WidthList(13,0) = com.sun.star.sdbc.DataType.DATE            ' =  91;
  230.     WidthList(13,1) = cDateBox
  231.     WidthList(13,2) = False
  232.     WidthList(13,3) = "DateField"
  233.     
  234.     WidthList(14,0) = com.sun.star.sdbc.DataType.TIME            ' =  92;
  235.     WidthList(14,1) = cTimeBox
  236.     WidthList(14,2) = False
  237.     WidthList(14,3) = "TimeField"
  238.     
  239.     WidthList(15,0) = com.sun.star.sdbc.DataType.TIMESTAMP        ' =  93;
  240.     WidthList(15,1) = cDateBox
  241.     WidthList(15,2) = False
  242.     WidthList(15,3) = "DateField"
  243.  
  244.     ImgWidthList(0,0) = com.sun.star.sdbc.DataType.BINARY            ' =  -2;
  245.     ImgWidthList(0,1) = cImageControl
  246.     ImgWidthList(0,2) = False
  247.     ImgWidthList(0,3) = "ImageControl"
  248.     
  249.     ImgWidthList(1,0) = com.sun.star.sdbc.DataType.VARBINARY        ' =  -3;
  250.     ImgWidthList(1,1) = cImageControl
  251.     ImgWidthList(1,2) = False
  252.     ImgWidthList(1,3) = "ImageControl"
  253.  
  254.     ImgWidthList(2,0) = com.sun.star.sdbc.DataType.LONGVARBINARY    ' =  -4;
  255.     ImgWidthList(2,1) = cImageControl
  256.     ImgWidthList(2,2) = False
  257.     ImgWidthList(2,3) = "ImageControl"
  258.  
  259.     ImgWidthList(3,0) = com.sun.star.sdbc.DataType.BLOB            ' = 2004;
  260.     ImgWidthList(3,1) = cImageControl
  261.     ImgWidthList(3,2) = False
  262.     ImgWidthList(3,3) = "ImageControl"
  263.  
  264. ' Note: the following Fieldtypes are ignored
  265. 'ExcludeList(0) = com.sun.star.sdbc.DataType.SQLNULL
  266. 'ExcludeList(1) = com.sun.star.sdbc.DataType.OTHER
  267. 'ExcludeList(2) = com.sun.star.sdbc.DataType.OBJECT
  268. 'ExcludeList(3) = com.sun.star.sdbc.DataType.DISTINCT
  269. 'ExcludeList(4) = com.sun.star.sdbc.DataType.STRUCT
  270. 'ExcludeList(5) = com.sun.star.sdbc.DataType.ARRAY
  271. 'ExcludeList(6) = com.sun.star.sdbc.DataType.CLOB
  272. 'ExcludeList(7) = com.sun.star.sdbc.DataType.REF
  273.  
  274.     oModelService(cLabel) = "com.sun.star.form.component.FixedText"
  275.     oModelService(cTextBox) = "com.sun.star.form.component.TextField"
  276.     oModelService(cCheckBox) = "com.sun.star.form.component.CheckBox"
  277.     oModelService(cDateBox) = "com.sun.star.form.component.DateField"
  278.     oModelService(cTimeBox) = "com.sun.star.form.component.TimeField"
  279.     oModelService(cNumericBox) = "com.sun.star.form.component.FormattedField"
  280.     oModelService(cGridControl) = "com.sun.star.form.component.GridControl"
  281.     oModelService(cImageControl) = "com.sun.star.form.component.DatabaseImageControl"
  282. End Sub</script:module>